home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / misc / disectv1.lha / Disect.Install < prev    next >
Text File  |  1995-08-15  |  2KB  |  64 lines

  1. ; $VER: 0.3a Disect Installation script written by Bill Westhead
  2. ; Netmail 2:250/320.20 for more information
  3.  
  4.     (set FALSE 0)
  5.     (set TRUE 1)
  6.     (set @default-dest "SYS:")
  7.     (set DISECT-FILE "DisectDemo.exe")
  8.     (set DISECT-VERS-FILE "Disectv1.8")
  9.  
  10. (procedure Destination
  11.     (message "\nDisect HD installation script by Bill Westhead.\n\n"
  12.             "You are about to install the latest version of "
  13.             "Disect to your hard disk.\n\n"
  14.             "If you encounter any bugs, or have any suggestions, "
  15.             "please send mail to one of the addresses below :-\n\n"
  16.             "Internet : bill@twilite.demon.co.uk\n"
  17.             "Fidonet  : 2:250/320.20\n")
  18.             
  19.     (set DMA_dest
  20.         (tackon
  21.         (askdir
  22.         (prompt "Where would you like to install Disect. (A drawer named Disect will be created there.)")
  23.         (help @copylib-help)
  24.         (default @default-dest)
  25.         )"Disect")
  26.     )
  27.  
  28.     (set @default-dest DMA_dest)
  29.  
  30.     (makedir DMA_dest (infos) )
  31.     (makeassign "Disect" DMA_dest)
  32.     (makedir "Disect:Document" (infos) )
  33.     (makedir "Disect:Prefs" (infos) )
  34.     (makedir "Disect:SysSymbol" (infos) )
  35.     (makedir "Disect:Tutorial" (infos) )
  36.  
  37. )
  38.  
  39. (Destination)
  40.  
  41. (complete 19)
  42. (copyfiles (source DISECT-FILE) (dest "Disect:") )
  43.  
  44. (complete 60)
  45. (copyfiles (source DISECT-VERS-FILE) (dest "Disect:") (infos))
  46. (copyfiles (source "Grabmem") (dest "Disect:") (infos))
  47. (copyfiles (source "AllocMultiBin") (dest "Disect:") (infos))
  48. (copyfiles (source "Document/") (pattern "#?") (dest "Disect:Document/") (infos))
  49. (copyfiles (source "Prefs/") (pattern "#?") (dest "Disect:Prefs/") (infos))
  50. (copyfiles (source "SysSymbol/") (pattern "#?") (dest "Disect:SysSymbol/") (infos))
  51. (copyfiles (source "Tutorial/") (pattern "#?") (dest "Disect:Tutorial/") (infos))
  52.  
  53. (complete 95)
  54.  
  55. (startup "Disect_Beta"
  56.         (prompt "An assign will be added to your \"s:user-startup script.\"\n")
  57.         (help @startup-help)
  58.         (command "assign Disect: \""DMA_dest"\" \n")
  59. )
  60.  
  61. (complete 100)
  62. (exit "Disect *Beta* Version Installation Script written \nby\n\nBill Westhead."
  63.       "\n\nScript version 0.3a 16th August 1995")
  64.